(init_eval_once): Initialize specpdl_ptr.

diff --git a/src/eval.c b/src/eval.c
index cecf18cbfeb94625e433ac97a046b74378ca4b9e..ed4a1465c86f0dc4481da7a4203a393b3be47cdd 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -157,6 +157,7 @@ init_eval_once ()
 {
   specpdl_size = 50;
   specpdl = (struct specbinding *) xmalloc (specpdl_size * sizeof (struct specbinding));
+  specpdl_ptr = specpdl;
   max_specpdl_size = 600;
   max_lisp_eval_depth = 200;